home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Microsoft Internet Strate…Tools for the Enterprise
/
Microsoft Internet Strategy & Tools for the Enterprise.iso
/
bkoffice
/
inetsrv.nts
/
nt351qfe.usa
/
alpha
/
pscript.dll
/
259
/
2
< prev
next >
Wrap
Text File
|
1995-10-07
|
3KB
|
52 lines
%%BeginResource: file Adobe_WinNT_Pattern 2.0 0
/SavedCTM null def/CTMsave{/SavedCTM SavedCTM currentmatrix def}b/CTMrestore{SavedCTM
setmatrix}b/mp null def/ADO_mxRot null def/GDIBWPatternDict 18 dict
dup begin/PatternType 1 def/PaintType L2?{1}{2}ifelse def/RepsV L2?{1}{6}ifelse
def/RepsH L2?{1}{5}ifelse def/BBox [0 0 RepsH 1] def/TilingType 1 def/XStep
1 def/YStep 1 def/Height null def/Width null def/mx null def/FGnd null
def/BGnd null def/SetBGndFGnd L2?{{BGnd null ne{BGnd aload pop sgco
BBox aload pop 2 index sub exch 3 index sub exch rf}if FGnd null ne{FGnd
aload pop sgco}if}}{{}}ifelse b/PaintProc{begin SetBGndFGnd RepsH{Width
Height false mx PaintData imagemask Width 0 translate}repeat end}b
end def/GDIBWPatternMx null def/pfprep{save 6 1 roll/PatternOfTheDay
6 1 roll GDIBWPatternDict begin/PaintData exch def/yExt exch def/Width
exch def/BGnd exch def/FGnd exch def/Height yExt RepsV mul def/mx [
Width 0 0 Height 0 0 ] def end gsave GDIBWPatternDict begin Width Height
end dsnap scale/GDIBWPatternMx matrix currentmatrix def grestore CTMsave
GDIBWPatternMx setmatrix GDIBWPatternDict 0 8 matrix translate mp CTMrestore
exch pop}b/hrf null def/prf{pfprep exch 6 1 roll 5 hrf restore}b/GraphInit{GDIBWPatternMx
null eq{/SavedCTM matrix def gsave ADO_mxRot concat grestore}if}b
%%EndResource
%%BeginResource: file Adobe_WinNT_Pattern_L1 2.0 0
L2?
not DefIf_B{/GDIpattfill{dup begin BGnd null ne PaintType 2 eq and{gsave
BGnd aload pop sgco fEOFill{eofill}{fill}ifelse grestore FGnd aload
pop userdict/fGray 2 index put{2}{4}ifelse -1 roll}if end dup patterncalc
gsave 4 index/PaintType get 2 eq{fGray{6 -1 roll sg}{8 -3 roll sco}ifelse}if
fEOFill{eoclip}{clip}ifelse newpath patternfill grestore newpath}b/hrf{/fGray
1 index 6 eq def -4 roll newpath rp closepath/fEOFill false def GDIpattfill}b/mpstr
10 string def/mp{exch dup length 12 add dict copy begin/PatternCTM
matrix currentmatrix def/PatternMatrix exch def/PatWidth XStep mpstr
length mul def/PatHeight YStep def/FontType 3 def/Encoding 256 array
def 3 string 0 1 255{Encoding exch dup 3 index cvs cvn put}for pop/FontMatrix
matrix def/FontBBox BBox def/BuildChar{pop dup begin XStep 0 FontBBox
aload pop setcachedevice/PaintProc load end gsave exec grestore}b currentdict
end exch dup 3 -1 roll definefont}b/patterncalc{begin gsave PatternCTM
setmatrix PatternMatrix concat BBox aload pop pop pop translate pathbbox
grestore PatHeight div ceiling 4 1 roll PatWidth div ceiling 4 1 roll
PatHeight div floor 4 1 roll PatWidth div floor 4 1 roll 2 index sub
cvi abs exch 3 index sub cvi abs exch 4 2 roll PatHeight mul exch PatWidth
mul exch end}b/patternfill{5 -1 roll dup begin setfont PatternCTM setmatrix
PatternMatrix concat 0 2 index 2 index M 0 1 mpstr length 1 sub{1 index
mpstr 3 1 roll put}for pop 2 index{currentpoint 5 index{mpstr show}repeat
YStep add M}repeat pop pop pop pop end}b}DefIf_E
%%EndResource
%%BeginResource: file Adobe_WinNT_Pattern_L2 2.0 0
L2? DefIf_B{/mp/makepattern
load def/hrf{6 eq setAorABC setpattern rectfill}b}DefIf_E
%%EndResource